home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr52 / pdxvie.zip / FUNCS.OLD < prev    next >
Text File  |  1993-04-01  |  3KB  |  74 lines
  1. #define Panel( lHelp )     EVAL( { | cDefCol | cDefCol := SETCOLOR( 'w+/n' ),;
  2.         __BOX( 0, 0, MAXROW(), 79, '▓▓▓▓▓▓▓▓▓' ),;
  3.         DEVPOS( MAXROW(), 0 ),;
  4.         IF( lHelp, DEVOUT( PADL( 'F1 - HELP', 80 ) ), QQOUT() ),;
  5.         SETCOLOR( cDefCol ) } )
  6.  
  7. #define Shad( nTR, nTC, nBR, nBC, lDoub, cClrs )  ;
  8.         EVAL( { | cDefCol | cDefCol := SETCOLOR( IF( EMPTY( cClrs ),;
  9.         Nil, cClrs ) ),    SETCOLOR( 'w+/n' ),;
  10.         __BOX( nTR+1, nTC+2, nBR+1, nBC+2, '░░░░░░░░░' ),;
  11.         SETCOLOR( cClrs ), __ATCLEAR( nTR, nTC, nBR, nBC ),;
  12.         IF( lDoub, __BoxD( nTR, nTC, nBR, nBC ),;
  13.         __ATCLEAR( nTR, nTC, nBR, nBC ) ), SETCOLOR( cDefCol ) } )
  14.  
  15. #define BoxShad( nTR, nTC, nBR, nBC, cClrs );
  16.         EVAL( { | cDefCol | cDefCol:=SETCOLOR( cClrs ),;
  17.         RESTSCREEN( nTR+1,nTC+2,nBR+1,nBC+2,;
  18.         TRANSFORM( SAVESCREEN( nTR+1,nTC+2,nBR+1,nBC+2 ),;
  19.         REPLICATE( 'X', ( nBR-nTR+1 ) * ( nBC-nTC+1 ) ) ) ),;
  20.         __BoxD( nTR, nTC, nBR, nBC ),;
  21.         __ATClear( nTR+1, nTC+1, nBR-1, nBC-1 ),;
  22.         SETCOLOR( cDefCol ) } )
  23.             
  24. #define Credit();
  25.         Panel( .F. );;
  26.         Shad( 4, 13, 21, 63, .T., 'w+/b' );;
  27.         SETCOLOR( "w+/b" ); DevPos( 5, 17 );;
  28.         DevOut( "This Demo was created at" );;
  29.         DevPos( 7, 20 ); DevOut( "Main Architect:" );;
  30.         DevPos( 9, 20 );;
  31.         DevOut( "With a little help from his friends." );;
  32.         DevPos( 18, 16 );;
  33.         DevOut( "Without their help and @#*%!)$? constructive" );;
  34.         DevPos( 19, 19 );;
  35.         DevOut( "criticism, you wouldn't be seeing this." );;
  36.         SETCOLOR( "GR+/B" ); DevPos( 7, 36 );;
  37.         DevOut( "Micheal Todd Charron" ); DevPos( 10, 31 );;
  38.         DevOut( "Arturo Austrich" ); DevPos( 11, 31 );;
  39.         DevOut( "Michelle Benoit" ); DevPos( 12, 32 );;
  40.         DevOut( "Paul Cornect" ); DevPos( 13, 33 );;
  41.         DevOut( "Gloria Eade" ); DevPos( 14, 32 );;
  42.         DevOut( "Ferdinand Ho" ); DevPos( 15, 35 );;
  43.         DevOut( "Fred Ho" ); DevPos( 16, 31 );;
  44.         DevOut( "Tony Makhlouta" ); SETCOLOR( "BR+/B" );;
  45.         DevPos( 5, 42 ); DevOut( "Nantucket Canada." );;
  46.         DevPos( 20, 28 );;
  47.         DevOut( "(c) Nantucket Software Canada 1990" );;
  48.         DevPos( 24, 79 )
  49.  
  50. #define SaveFullScreen()    cFullScreen := SAVESCREEN( 0, 0, 24, 79 )
  51.  
  52. #define RestFullScreen()    RESTSCREEN( 0, 0, 24, 79, cFullScreen )
  53.  
  54. #define WaitKey( lCont );
  55.         INKEY( 5 ); DEVPOS( 24, 0 ); DEVOUT( 'Press any key to ');;
  56.         DEVOUT( IF( lCont, 'Continue . . .', 'Exit . . .') );;
  57.         INKEY( 60 )
  58.  
  59. #define Range( xVar, xExpr1, xExpr2 );
  60.         ( xVar >= MIN( xExpr1, xExpr2 ) .AND.;
  61.         xVar <= MAX( xExpr1, xExpr2 ) )
  62.  
  63. #define Beep()    Tone(300,3)
  64.  
  65. #define ShadThin( nTR, nTC, nBR, nBC, nBorder, cFGColor, cBGColor );
  66.     DISPBEGIN();;
  67.     DISPBOX( nTR, nTC + 1, nBR + 1, nBC + 1, '▄▄▄█▀▀▀█', 'n/' + cBGColor );;
  68.     DISPBOX( nTR, nTC, nBR, nBC, IF( nBorder, '╔═╗║╝═╚║ ', SPACE( 9 ) ),;
  69.     cFGColor ); DISPEND()
  70.  
  71. #define PressAnyKey();
  72.     EVAL( { | cDefCol | cDefCol := SETCOLOR( 'w+/n' ),;
  73.     DEVPOS( MAXROW(), 52 ), DEVOUT( 'Press any key to continue...'),;
  74.     SETCOLOR( cDefCol ), INKEY( 0 ) } )